home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / shape.dxr / 00035.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  1.5 KB  |  56 lines
  1. on mouseUp me
  2.   global whereat
  3.   if whereat = 1 then
  4.     set the member of sprite 42 to member("Define4")
  5.     set the memberNum of sprite 194 to 707
  6.     repeat with X = 10 down to 0
  7.       set the blend of sprite 45 to X * 10
  8.       set the blend of sprite 46 to X * 10
  9.       set the blend of sprite 47 to X * 10
  10.       set the blend of sprite 48 to X * 10
  11.       updateStage()
  12.     end repeat
  13.     set the member of sprite 47 to member("Return")
  14.     showit(185, 185)
  15.     repeat with X = 1 to 50
  16.       set the blend of sprite 47 to X * 2
  17.     end repeat
  18.     hideit(45, 46)
  19.     hideit(48, 52)
  20.     repeat with X = 10 down to 0
  21.       set the blend of sprite 43 to X * 10
  22.       updateStage()
  23.     end repeat
  24.     whereat = 2
  25.   else
  26.     if whereat = 2 then
  27.       set the member of sprite 47 to member("DefineButton3")
  28.       hideit(54, 55)
  29.       showit(45, 52)
  30.       hideit(185, 185)
  31.       hideit(201, 201)
  32.       if sprite(193).visible = 1 then
  33.         repeat with X = 191 to 194
  34.           sprite(X).visible = 0
  35.         end repeat
  36.       end if
  37.       repeat with X = 0 to 10
  38.         set the blend of sprite 45 to X * 10
  39.         set the blend of sprite 46 to X * 10
  40.         set the blend of sprite 47 to X * 10
  41.         set the blend of sprite 48 to X * 10
  42.         sprite(49).visible = 1
  43.         sprite(50).visible = 1
  44.         sprite(51).visible = 1
  45.         sprite(52).visible = 1
  46.         updateStage()
  47.       end repeat
  48.       repeat with X = 0 to 10
  49.         set the blend of sprite 43 to X * 10
  50.         updateStage()
  51.       end repeat
  52.       whereat = 1
  53.     end if
  54.   end if
  55. end
  56.